NIL 
(NIL NIL (TOPCOPY  *PUTSYM) (CCLST DPB) (OUTPUSH OUTPUT OUTPUTSTAT) (CADAR , P1BIND) (GETGET CURFILE) (B MULTIPL~
Y DODF DOACT) (M GEN) (X *NOPOINT *AM) NIL (NUMVAL) (CDADR CDDDAR ARG) (DIVIDE) (NCONS TIMES) (EXPLODE CDDDDR EX~
PLODEC) (DEFEXPR ZZ) NIL (TRANSOUT CURFUN P1SETQ AS) (NOTLAMBDA-GENFUN) (SYMNO APPEND P2BOOL *BPROCEED*) NIL (AD~
D1 CINIT HASPROP) (*LF ACNUMP) (OR) (ATOMICVARLIST-P1BIND) (MOVEI JRST SUBST) (IBASE) (SUB1 BOOLAND BOOLARGS) (C~
DDDR CMPBREAK P2VAL RSLSET) (CAR MOVEM BASE ARRAY ARRAYAC) (
 P1STORE NOTVARIABLE-P1SETQ NOTVARIABLE-P1BIND DO*EXPR) (BOOLEXPR BOOLEQ BOOLE MAPLIST) (NUM P2CARCDR) (NULL . M~
ARKVAL CLRTRASH1 CLRTRASH) (FLATSIZE) (D PDLTOOLONG-LSUBRCALL P1 VARB) (O OUTDEV) (CAADAR Z TEN) (P1CONS P1COND)~
 (TYI) (CAADDR BOOLNULL) (GET BOOLOR) (PWHERE) (PAIR VGO *BREAK*) (*PT) (GENERAL VARIABLEP VARIABLES DELETEPROP ~
VARIABLE STOPSYM GENERATED SOSLNK) (SYSIN) (BPORG) (LSUBR LSUBRP HLLZS HLLZS@ BOOLVALUE CSTART LABEL) (L12) (*EV~
AL) (OUTINST *LESS EXTRAARGS-PASS1 EXTRAARGS-P1SUBRARGS EXAMINE CSYM) (CAMN NOT XCT) NIL (CAADR CADDAR) NIL (INC~
) (CMP CADDDR %DEFIN MAP) (SETARG) (ALLACS SECONDS QLIST) (PRSSL) (CLRCCLST FOUNDFREE) NIL (SIXMAK HLRZ@ UNSPECI~
AL ;) (F ILOC) (Q DEFMACRO) (CPUSH EXARRAY) (*UDT ML2SET) (SYMBOL) (EXPR OUTSTAT) NIL (CADDR BEGINBLOCK OUT1) (P~
1SCNT) (TYO) (EXIT P2GO MAPC P1PROG REMLAP) (PVR) (*MIN PRIN1 SETPROP) (QUOTE *GREAT BUFFER) (*PLUS) (LOSE) (SIX~
MRT %EX% CHSETO CHSETI) (FREE QUOTIENT) NIL (ALLFUNS SLST REDEFINED) (*SP PROPTABLE) (XCT@S) (SASSOC CNTSET) (P1~
EVAL FLONUM) NIL (ADD EXCH ZEROP) (EVAL INI BINARY) (EXCEEDED) (SIDEEFFECTS) (H LIMIT P1ELSE) (PRINC S) (SUB) (*~
TB) (ABS) (␈ NOTONPDL-GETSLOT) (IN) (*FUNCTION P1ANDOR SYM) (LINEF MEMQ DVP) (TABLE) (PRINL NTHCDR GENCONST) (LE~
VEL) (CODESIZE) (ACHLOC) (LINELENGTH) (*FF NACS COPT %OCH%) (LSH EX *QUO) (PRINS) (PRINTMSG PRINTN PRINTEXPR PRI~
NTSTAT FUNVAR PRINT USETI) (NOAC-RESTORE VAL) (RSL P2CNT ILOC1 OUTGOTAB) (COPY CARCDR CARCDRDEPTH FLUSHLAP FLUSH~
EXPR) (GWD) (PROG MINUS LOCVARS DOP2BOOL MINUSP DEFACTION) (P1RETURN STARTSYM USETO HRLM) (PUSH CHRVAL) () FOO D~
OP2ELSE GVAL) (LAPNOTES VARLIST) (?) (SETQ J GC) (U NIL-RST %LL% GRINDEF) (DEFFEXPR) (WORDIN P1*FUNCTION) (POPJ)~
 (CURBIND EDFUN) (*TIMES) (P2RPLAC QT) (SUBR %DEV) (INITCHAN) (TERPRI *DIF) (FUN CARRETN NOUUO) (INITFN %L) (CAI~
N WORDS) (MEMQ# CDAR FOR DOP2VAL) (SETSLOT INITIALIZATION MAKDEF) (LOC INPROG) (JUMPE MAPCAR DO*FEXPR) (EXITBUM ~
BINDARGS *FEXPR) (JCALL LAMBDA JCALLF@ JCALLF) (ADDTOLIST REMOB) (GREATERP DSK:) (INITPROMPT INITPROP INCHAN) (
 ~
MINDEPTH TEST P1SUBRARGS %FLIST MAKNAM *GETSYM GCGAG) (DONE FREEAC FREEAC1 VAR REPEATED) ( ) (JUMPN) (DEFPROP L1~
1) (A) (L IMMED HRRM) (MEMBER EXITN ERRSET INMACRO W) (CDDR UNDECLARED) (MSGCHAN) NIL (OUTC UNDEFINED UNDEF) (AN~
D SHOWNAMES) (XCONS *LSUBR) (*LCALL CLRPVARS) NIL (SPECBIND *AMAKE) (COND REMOVE) NIL (POP) (MAKNUM) (PROG2 LOAD~
) (*SL SL) (SPECIAL CAME OUTJCALL USERERR SPECIALP PGLINE) (CLEARBOTH CLEARM CLEARITALL CLEARACS NAME CLEAR1 CLE~
ARAC CLEARB) (LINCNT) (LDLSTLEFT-PASS2 LDLST FREEZE FREEZE1 PASS1INMACRO PASS1UNDEF PASS1FSUBR PASS1LSUBR PASS1S~
UBR PASS1 PASS1MACRO PASS1FUNVAR PASS1LAMBDA) (EVALREAD PASS2 PASS2LAMBDA SOJN) (PUTPROP OUTENDTAG) ( *EXPAND1 *~
EXPAND) NIL (GENFUN GENFUNS ") (-) (SPECSTR P2ARG OUTJMP) (C CAAR) (CONS ENDBLOCK N TRACELIST TRACET TRACE) (Y S~
PECVARP HRLM@ FIXNUM SPECVARS) (*COLON DECIMAL RESET) (LIST OUTJRST LOSTVAR-ILOC1 OUTEXT %FNAM) NIL (READ TABTO)~
 NIL (P1LABEL PLUS) (DDTIN) (*SUBR P1FUNCTION) (*APPEND) (FARGAC *EXPR) (PUSHJ COUNT GOLIST TOPLEVEL LAST GCTIME~
 COUNTSDISAGREE-COMPFUNC) (%CHAN) (PROGN P1GO DF %ICH%) (P2*EVAL RESTORE DODE) (CADR PDLDEPTH) (REVERSE NOTAC-GE~
TSLOT) (ASCII PROGRAM) (SAVEACS PROGSW UNSLST BAKGAG) (PROGTAG CSFUN DEFINED PROGTOOSHORT-P1PROG SAVEBPORG) (LAP~
 MIDDLE) (*CO PROGVARS MAPP1) (FINDFREEAC MACRO MACROS) (*RP) ($ OPS) (/) (:) (E) (P USED) (SUBRP INPUT SAVELAPO~
RG %DEVP) (EQUAL) NIL (CALL EN1) (P2SETARG P2SETQ) (HRRM@ UNTRACET END SET UNTRACE BPEND COMMENT) (*USER) (LENGT~
H PDLSHORT-RESTORE TAKEN FILEIN) (DEINITSYM) (*CR TESTJUMP) (OS CLRSPVAR CLRSPECS BREAK) (OUTCALL PATOM DUP OUTC~
ALLF) (TELLTALE FINISHED-LOADING) (DEFSYM) (PUTINAC) NIL (RETURN MOVNI P1ERRSET) (DEBUG P2STORE) (OUTCHAN) NIL (~
HRRZ OUTCJMP) (JSP COMMU SPEAK LOADARG) (P2) (≠ SLOTCONT LOADCOMP LOADCARCDR P1CNT) (FUNCTION FUNCTIONS OCTAL) (~
FORMF P2COND1 INUM0 P2COND) (PAGEHEIGHT) (G ERR DECLARE) (R P2QUOTE MAPPUT) (DSKIN DOP1) (ACTONMACRO ACTONEXPR) ~
(CHRCT CSTEP NSTR) NIL (ISSUBR LAPEVAL) (CDAAAR *FSUBR) NIL (SLOTPUSH SLOTPOP TYPE) (ARGNOERR-P2CARCDR OUTMOVEM ~
OUTMOVE ARGNOERR-BOOLEQ ARGNOERR-P1LAM UNUSED ARGNO-P1CONS ARGNOERR-COMPDEF SPACE CDAADR TIME PUTSYM) NIL (LOADS~
UBRARGS) NIL (CAIE PAGEWIDTH LAPORG %SEXPR) (READCH) (GOTABAC FIX1A) (*MAX READERR-FLUSHLAP) NIL (FIX LISTING) N~
IL (*UNDEF NEGNUM-NTHCDR READIN %TALK) (GETL GENSYM *AT REMAINDER %XCH) (LSP) (CURCOL NONSPECVARS LISTNILS READL~
IST CDAAR CDDAAR READLOOP *RSET) NIL (( ACEFFECTS) (RST PROTECTACS CONSTANTP SUBFUN CONSTFUN-P1 CONSTSIZE SUBFUN~
2CSTART CDDADR SUBFUN1CSTART CONSTANTS) (P1BUG PATCH) (I TAG DOFILE) (T GO SYS:) (ATOM DODM DEFLOC %READCHAN %RE~
ADAFILE) (MOVE) NIL (P2PROGN P2PROG2 P2PROG LASTOUT) NIL NIL (CLRLOCS) (NEXTSYM *VT ILAP) NIL NIL (FSUBR CDDAR F~
SUBRP COMPARGS COMPACTION DIFFERENCE) (MAKESYM MAKESPECIAL BOOL) (FEXPR GETSLOT) (NOTINPROG-P1RETURN NOTINPROG-P~
1GO MAKEUNSPECIAL COMPDEF) (COMPERR ATMARGIN COMPEXPR COMPEFFECT) (VALUEAC COMPFORM CALLFSUBR CALLF@ CALLFUNARGS~
 VALUE COMPFUNC COMPFILE CALLF OBLIST CPTR) (NEQ SHRINKPDL) (LCONC) (REMPROP COMPILED COMPILER COMPILEFUN COMPIL~
E) (CAAAAR ERROR* STORE) (SOJE) (COMPLR 	 CALLLSUBR COMPL KLIST) (*LP CAAADR P2ELSE DEPOSIT ED) (NOTSLOT-~
GETSLOT) (APPLY# * LOCAL APPLY) (USEDTAGP COMPPRED GETSYM FUNARG) (HRRZ@ ACS @ EQUIVTAG) (K CTAG COMPREADS) (IO ~
V CALLSUBR COMPSTAT INTERN INTERNALMACROS GCD) (PNAME) (LESSP) (PDL UNDFUNS) (SEEKPROP UNKNOWNFUNCTION-COMPFORM ~
EXCISE) (RPLACD RPLACA) (LOOP *SAVIOB) (CDR TDZA) (NIL *RO CAAAR CADAAR) (LISP DM EIGHT) NIL (NUMBERP CADADR PRO~
CEED G0000) (CONLIST) NIL (SEXPR INOUT) (ASSOC# ASSOCR ASSOC *COMPILER CDADAR FLD %OLDCHAN) ($EOF$) (ATOM-NTHCDR~
 UPPERFLG HRRZS HRRZS@ PRGSPFLG WRD UPPERFLAG) (P2RETURN OUTPOP DE TOFEWARGS-P2PROG2 CDADDR NCONC) (EQ INDEV) (H~
LRZ TYPEFN) NIL)
(NIL NIL (TOPCOPY / *PUTSYM) (CCLST DPB) (OUTPUSH OUTPUT OUTPUTSTAT) (CADAR /, P1BIND) (GETGET CURFILE) (B MULTI~
PLY DODF DOACT) (M GEN) (X *NOPOINT *AM) NIL (NUMVAL) (CDADR CDDDAR ARG) (DIVIDE) (NCONS TIMES) (EXPLODE CDDDDR ~
EXPLODEC) (DEFEXPR ZZ) NIL (TRANSOUT CURFUN P1SETQ AS) (NOTLAMBDA-GENFUN) (SYMNO APPEND P2BOOL *BPROCEED*) NIL (~
ADD1 CINIT HASPROP) (*LF ACNUMP) (OR) (ATOMICVARLIST-P1BIND) (MOVEI JRST SUBST) (IBASE) (SUB1 BOOLAND BOOLARGS) ~
(CDDDR CMPBREAK P2VAL RSLSET) (CAR MOVEM BASE ARRAY ARRAYAC) (/
 P1STORE NOTVARIABLE-P1SETQ NOTVARIABLE-P1BIND DO*EXPR) (BOOLEXPR BOOLEQ BOOLE MAPLIST) (NUM P2CARCDR) (NULL /. ~
MARKVAL CLRTRASH1 CLRTRASH) (FLATSIZE) (D PDLTOOLONG-LSUBRCALL P1 VARB) (O OUTDEV) (CAADAR Z TEN) (P1CONS P1COND~
) (TYI) (CAADDR BOOLNULL) (GET BOOLOR) (PWHERE) (PAIR VGO *BREAK*) (*PT) (GENERAL VARIABLEP VARIABLES DELETEPROP~
 VARIABLE STOPSYM GENERATED SOSLNK) (SYSIN) (BPORG) (LSUBR LSUBRP HLLZS HLLZS@ BOOLVALUE CSTART LABEL) (L12) (*E~
VAL) (OUTINST *LESS EXTRAARGS-PASS1 EXTRAARGS-P1SUBRARGS EXAMINE CSYM) (CAMN NOT XCT) NIL (CAADR CADDAR) NIL (IN~
C) (CMP CADDDR %DEFIN MAP) (SETARG) (ALLACS SECONDS QLIST) (PRSSL) (CLRCCLST FOUNDFREE) NIL (SIXMAK HLRZ@ UNSPEC~
IAL ;) (F ILOC) (Q DEFMACRO) (CPUSH EXARRAY) (*UDT ML2SET) (SYMBOL) (EXPR OUTSTAT) NIL (CADDR BEGINBLOCK OUT1) (~
P1SCNT) (TYO) (EXIT P2GO MAPC P1PROG REMLAP) (PVR) (*MIN PRIN1 SETPROP) (QUOTE *GREAT BUFFER) (*PLUS) (LOSE) (SI~
XMRT %EX% CHSETO CHSETI) (FREE QUOTIENT) NIL (ALLFUNS SLST REDEFINED) (*SP PROPTABLE) (XCT@S) (SASSOC CNTSET) (P~
1EVAL FLONUM) NIL (ADD EXCH ZEROP) (EVAL INI BINARY) (EXCEEDED) (SIDEEFFECTS) (H LIMIT P1ELSE) (PRINC S) (SUB) (~
*TB) (ABS) (/␈ NOTONPDL-GETSLOT) (IN) (*FUNCTION P1ANDOR SYM) (LINEF MEMQ DVP) (TABLE) (PRINL NTHCDR GENCONST) (~
LEVEL) (CODESIZE) (ACHLOC) (LINELENGTH) (*FF NACS COPT %OCH%) (LSH EX *QUO) (PRINS) (PRINTMSG PRINTN PRINTEXPR P~
RINTSTAT FUNVAR PRINT USETI) (NOAC-RESTORE VAL) (RSL P2CNT ILOC1 OUTGOTAB) (COPY CARCDR CARCDRDEPTH FLUSHLAP FLU~
SHEXPR) (GWD) (PROG MINUS LOCVARS DOP2BOOL MINUSP DEFACTION) (P1RETURN STARTSYM USETO HRLM) (PUSH CHRVAL) (/) FO~
O DOP2ELSE GVAL) (LAPNOTES VARLIST) (?) (SETQ J GC) (U NIL-RST %LL% GRINDEF) (DEFFEXPR) (WORDIN P1*FUNCTION) (PO~
PJ) (CURBIND EDFUN) (*TIMES) (P2RPLAC QT) (SUBR %DEV) (INITCHAN) (TERPRI *DIF) (FUN CARRETN NOUUO) (INITFN %L) (~
CAIN WORDS) (MEMQ# CDAR FOR DOP2VAL) (SETSLOT INITIALIZATION MAKDEF) (LOC INPROG) (JUMPE MAPCAR DO*FEXPR) (EXITB~
UM BINDARGS *FEXPR) (JCALL LAMBDA JCALLF@ JCALLF) (ADDTOLIST REMOB) (GREATERP DSK:) (INITPROMPT INITPROP INCHAN)~
 (/
 MINDEPTH TEST P1SUBRARGS %FLIST MAKNAM *GETSYM GCGAG) (DONE FREEAC FREEAC1 VAR REPEATED) (/ ) (JUMPN) (DEFPR~
OP L11) (A) (L IMMED HRRM) (MEMBER EXITN ERRSET INMACRO W) (CDDR UNDECLARED) (MSGCHAN) NIL (OUTC UNDEFINED UNDEF~
) (AND SHOWNAMES) (XCONS *LSUBR) (*LCALL CLRPVARS) NIL (SPECBIND *AMAKE) (COND REMOVE) NIL (POP) (MAKNUM) (PROG2~
 LOAD) (*SL SL) (SPECIAL CAME OUTJCALL USERERR SPECIALP PGLINE) (CLEARBOTH CLEARM CLEARITALL CLEARACS NAME CLEAR~
1 CLEARAC CLEARB) (LINCNT) (LDLSTLEFT-PASS2 LDLST FREEZE FREEZE1 PASS1INMACRO PASS1UNDEF PASS1FSUBR PASS1LSUBR P~
ASS1SUBR PASS1 PASS1MACRO PASS1FUNVAR PASS1LAMBDA) (EVALREAD PASS2 PASS2LAMBDA SOJN) (PUTPROP OUTENDTAG) (/ *EXP~
AND1 *EXPAND) NIL (GENFUN GENFUNS /") (/-) (SPECSTR P2ARG OUTJMP) (C CAAR) (CONS ENDBLOCK N TRACELIST TRACET TRA~
CE) (Y SPECVARP HRLM@ FIXNUM SPECVARS) (*COLON DECIMAL RESET) (LIST OUTJRST LOSTVAR-ILOC1 OUTEXT %FNAM) NIL (REA~
D TABTO) NIL (P1LABEL PLUS) (DDTIN) (*SUBR P1FUNCTION) (*APPEND) (FARGAC *EXPR) (PUSHJ COUNT GOLIST TOPLEVEL LAS~
T GCTIME COUNTSDISAGREE-COMPFUNC) (%CHAN) (PROGN P1GO DF %ICH%) (P2*EVAL RESTORE DODE) (CADR PDLDEPTH) (REVERSE ~
NOTAC-GETSLOT) (ASCII PROGRAM) (SAVEACS PROGSW UNSLST BAKGAG) (PROGTAG CSFUN DEFINED PROGTOOSHORT-P1PROG SAVEBPO~
RG) (LAP MIDDLE) (*CO PROGVARS MAPP1) (FINDFREEAC MACRO MACROS) (*RP) ($ OPS) (//) (:) (E) (P USED) (SUBRP INPUT~
 SAVELAPORG %DEVP) (EQUAL) NIL (CALL EN1) (P2SETARG P2SETQ) (HRRM@ UNTRACET END SET UNTRACE BPEND COMMENT) (*USE~
R) (LENGTH PDLSHORT-RESTORE TAKEN FILEIN) (DEINITSYM) (*CR TESTJUMP) (OS CLRSPVAR CLRSPECS BREAK) (OUTCALL PATOM~
 DUP OUTCALLF) (TELLTALE FINISHED-LOADING) (DEFSYM) (PUTINAC) NIL (RETURN MOVNI P1ERRSET) (DEBUG P2STORE) (OUTCH~
AN) NIL (HRRZ OUTCJMP) (JSP COMMU SPEAK LOADARG) (P2) (≠ SLOTCONT LOADCOMP LOADCARCDR P1CNT) (FUNCTION FUNCTIONS~
 OCTAL) (FORMF P2COND1 INUM0 P2COND) (PAGEHEIGHT) (G ERR DECLARE) (R P2QUOTE MAPPUT) (DSKIN DOP1) (ACTONMACRO AC~
TONEXPR) (CHRCT CSTEP NSTR) NIL (ISSUBR LAPEVAL) (CDAAAR *FSUBR) NIL (SLOTPUSH SLOTPOP TYPE) (ARGNOERR-P2CARCDR ~
OUTMOVEM OUTMOVE ARGNOERR-BOOLEQ ARGNOERR-P1LAM UNUSED ARGNO-P1CONS ARGNOERR-COMPDEF SPACE CDAADR TIME PUTSYM) N~
IL (LOADSUBRARGS) NIL (CAIE PAGEWIDTH LAPORG %SEXPR) (READCH) (GOTABAC FIX1A) (*MAX READERR-FLUSHLAP) NIL (FIX L~
ISTING) NIL (*UNDEF NEGNUM-NTHCDR READIN %TALK) (GETL GENSYM *AT REMAINDER %XCH) (LSP) (CURCOL NONSPECVARS LISTN~
ILS READLIST CDAAR CDDAAR READLOOP *RSET) NIL (/( ACEFFECTS) (RST PROTECTACS CONSTANTP SUBFUN CONSTFUN-P1 CONSTS~
IZE SUBFUN2CSTART CDDADR SUBFUN1CSTART CONSTANTS) (P1BUG PATCH) (I TAG DOFILE) (T GO SYS:) (ATOM DODM DEFLOC %RE~
ADCHAN %READAFILE) (MOVE) NIL (P2PROGN P2PROG2 P2PROG LASTOUT) NIL NIL (CLRLOCS) (NEXTSYM *VT ILAP) NIL NIL (FSU~
BR CDDAR FSUBRP COMPARGS COMPACTION DIFFERENCE) (MAKESYM MAKESPECIAL BOOL) (FEXPR GETSLOT) (NOTINPROG-P1RETURN N~
OTINPROG-P1GO MAKEUNSPECIAL COMPDEF) (COMPERR ATMARGIN COMPEXPR COMPEFFECT) (VALUEAC COMPFORM CALLFSUBR CALLF@ C~
ALLFUNARGS VALUE COMPFUNC COMPFILE CALLF OBLIST CPTR) (NEQ SHRINKPDL) (LCONC) (REMPROP COMPILED COMPILER COMPILE~
FUN COMPILE) (CAAAAR ERROR* STORE) (SOJE) (COMPLR /	 CALLLSUBR COMPL KLIST) (*LP CAAADR P2ELSE DEPOSIT ED) (~
NOTSLOT-GETSLOT) (APPLY# * LOCAL APPLY) (USEDTAGP COMPPRED GETSYM FUNARG) (HRRZ@ ACS /@ EQUIVTAG) (K CTAG COMPRE~
ADS) (IO V CALLSUBR COMPSTAT INTERN INTERNALMACROS GCD) (PNAME) (LESSP) (PDL UNDFUNS) (SEEKPROP UNKNOWNFUNCTION-~
COMPFORM EXCISE) (RPLACD RPLACA) (LOOP *SAVIOB) (CDR TDZA) (NIL *RO CAAAR CADAAR) (LISP DM EIGHT) NIL (NUMBERP C~
ADADR PROCEED G0000) (CONLIST) NIL (SEXPR INOUT) (ASSOC# ASSOCR ASSOC *COMPILER CDADAR FLD %OLDCHAN) ($EOF$) (AT~
OM-NTHCDR UPPERFLG HRRZS HRRZS@ PRGSPFLG WRD UPPERFLAG) (P2RETURN OUTPOP DE TOFEWARGS-P2PROG2 CDADDR NCONC) (EQ ~
INDEV) (HLRZ TYPEFN) NIL)